<script>on mouseUp noNewCardsput the hilite of bkgnd button "Return" into returnData -- check parametersput the hilite of bkgnd button "Tab" into tabDataput the hilite of bkgnd button "User Specified" into userDataif (returnData is false) and (tabData is false) and (userData is false) thenanswer "Select import parameters and try again"exit mouseUpend ifif ((returnData is true) and (tabData is true)) or ((returnData is true) and (userData is true)) or ((tabData is true) and (userData is true)) thenanswer "More than one import parameter is selected."exit mouseUpend ifAnswer "Do you want to update an existing stack or create a new one?" with "Update" or "New" or "Cancel"if (it is empty) or (it is "Cancel") then exit mouseupif it is "New" thenask "Enter in the name of the new stack."push cardset the lockScreen to trueset the cursor to busycreate stack it with bkgnd "Help" in a new windowpop carddoMenu "Copy Card"go stack itdoMenu "Paste Card"put empty into field "Record"push cardelse -- add card to current stackset the lockScreen to trueset the cursor to busygo to bkgnd "Help"go nextget field "Record"if it is not empty thendoMenu "New Card"push cardadd 1 to noNewCards -- counter to keep track of number of entrysend ifend ifAnswer file "Select the file would would like to import." of type textput it into fileNameif (it is empty) or (it is "Cancel") then exit mouseupopen file fileNamepop cardif userData is true thenask "What is the first identifier for each document?" -- begining of document to put in cardput it into firstIdentif (it is empty) or (it is "Cancel") then exit mouseupask "What is the last identifier?" -- end of entry to put in a cardput it into lastIdentif (it is empty) or (it is "Cancel") then exit mouseupset cursor to watchset lockScreen to truerepeat foreverread from file filename for 16384 -- read in 16384 charsif offset(firstIdent,it) is 0 then -- test to see if it is near end of filedoMenu "Delete Card" -- delete the last card; contains stuff after last lastIdentsubtract 1 from noNewCardsexit repeatend ifput offset(firstIdent,it) into startEntry -- find first char of beginning of entryput offset(lastIdent,it) into endEntry -- find first char of end of entrysubtract 1 from startEntry -- Includes first char of firstIdent in fieldif startEntry > endEntry then -- check to see if this is a partial fileput char 1 to endEntry of it after the last char in field "Record"delete last char of field "Record"doMenu "New Card"add 1 to noNewCardsend ifdelete char 1 to startEntry of it -- remove header or chars up to entry from fileput char 1 to offset(lastIdent,it) of it after last char of field "Record" -- put those chars into field "Record"delete char 1 to offset(lastIdent,it) of it -- remove entry from itdelete last char of field "Record" -- remove 1st char of lastIdentdoMenu "New Card"add 1 to noNewCardsrepeat forever -- loop to the 16384 chars into cardsput offset(firstIdent,it) into startEntryput offset(lastIdent,it) into endEntryif offset(lastIdent,it) is 0 then -- test to see if it is near end of itsubtract 1 from startEntrydelete char 1 to startEntry of it -- remove chars up to next entryput it into field "Record" -- put the rest of it into field "Record"exit repeatend ifsubtract 1 from startEntrydelete char 1 to startEntry of it -- remove chars up to next entryput char 1 to offset(lastIdent,it) of it after last char of field "Record" -- put those chars into field "Record"delete char 1 to offset(lastIdent,it) of it -- remove entry from itdelete last char of field "Record" -- remove 1st char of lastIdentdoMenu "New Card"add 1 to noNewCardsend repeatend repeatend ifif returnData is true thenset the lockScreen to trueset the cursor to watchrepeat foreverread from file filename until returnif it is empty thenexit repeatelseput it into field "Record"doMenu "New Card"add 1 to noNewCardsend ifend repeatend ifif tabData is true thenset the lockScreen to trueset the cursor to watchrepeat foreverread from file filename until tabif it is empty thenexit repeatelseput it into field "Record"doMenu "New Card"add 1 to noNewCardsend ifend repeatend ifclose file filenamebeep 2answer "The total number of new entrys are:" && noNewCardsend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>152</top>
<right>75</right>
<bottom>174</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Clear Search</name>
<script>on mouseUp tempNumberglobal totalFound,firstTerm,secondTerm,stringTerm,searchTerm,highSearchput empty into firstTermput empty into secondTermput empty into stringTermput empty into searchTermset lockScreen to trueset the cursor to busyif totalFound Γëñ 0 thenbeep 2answer "There is no search to clear."put 0 into totalFoundend ifif highSearch is true then -- skip unless the hilite button was checkedput 0 into tempNumberrepeat until tempNumber = totalFoundgo to next marked cardadd 1 to tempNumberget field "Record"put it into field "Record"end repeatend ifput 0 into totalFoundunmark all cardsput empty into bkgnd field "Marked Card #"put empty into bkgnd field "Total Marked #Cards"set the hilite of bkgnd button "AND" to falseset the hilite of bkgnd button "OR" to falseset the hilite of bkgnd button "Word/Phrase" to falseset the hilite of bkgnd button "Hilite" to falsego to card 2beep 2end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>128</top>
<right>75</right>
<bottom>149</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Save Search</name>
<script>on mouseUp tempNumber,currentStack,saveStackglobal totalFoundget the name of stackput it into currentStackif totalFound Γëñ 0 thenanswer "There are no search results to save."exit mouseupelseAnswer "Do you want to update an existing stack or create a new one?" with "Update" or "New" or "Cancel"if (it is empty) or (it is "Cancel") then exit mouseupset the lockScreen to trueif it is "New" thenask "Enter in the name of the new stack."set the lockScreen to trueset the cursor to busyif (it is empty) or (it is "Cancel") then exit mouseupput it into saveStackcreate stack it with bkgnd "Help" in a new windowif the result is "Couldn't create stack." thenanswer "Stack" && quote & saveStack & quote && "already exists."exit mouseUpend ifgo to first marked card of currentStackdoMenu "Copy Card" -- copy itgo stack saveStackdoMenu "Paste Card"push card -- mark spot in new stackput 1 into tempNumberrepeat until tempNumber = totalFoundgo to next marked card of currentStackget field "Record"pop card -- go to saveStackdoMenu "New Card"put it into field "Record"push card -- mark this card in saveStackadd 1 to tempNumberend repeatgo second cardunmark all cardselseanswer file "Select the stack to append"if (it is empty) or (it is "Cancel") then exit mouseUpset cursor to busyset lockScreen to trueput it into addStackgo to first marked card of currentStackget field "Record"go to last card of addStackdoMenu "New Card"put it into field "Record"push cardput 1 into tempNumberrepeat until tempNumber = totalFoundgo to next marked card of currentStackget field "Record"pop carddoMenu "New Card"put it into field "Record"push cardadd 1 to tempNumberend repeatpop cardend ifend ifbeep 2end mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>460</left>
<top>288</top>
<right>499</right>
<bottom>305</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Card #</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>103</top>
<right>75</right>
<bottom>125</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>View Search</name>
<script>on mouseUpvisual effect barn door open fastgo to the next marked cardend mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>463</left>
<top>252</top>
<right>502</right>
<bottom>270</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Total Marked #Cards</name>
<script></script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>461</left>
<top>314</top>
<right>500</right>
<bottom>332</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Total #Cards</name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>462</left>
<top>225</top>
<right>504</right>
<bottom>243</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Marked Card #</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>234</left>
<top>27</top>
<right>410</right>
<bottom>52</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name>Stack ID</name>
<script></script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>81</top>
<right>75</right>
<bottom>100</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Search</name>
<script>on mouseUp tempNumberglobal totalFound,firstTerm,secondTerm,stringTerm,searchTerm,highSearchif totalFound <> 0 thenanswer "Clear prior search before beginning a new one."exit mouseUpend ifput empty into firstTermput empty into secondTermput empty into stringTermset the cursor to handput the hilite of bkgnd button "Hilite" into highSearchput the hilite of bkgnd button "AND" into andSearchput the hilite of bkgnd button "OR" into orSearchput the hilite of bkgnd button "Word/Phrase" into wordSearchif (andSearch is false) and (orSearch is false) and (wordSearch is false) thenanswer "Select search parameters and try again."exit mouseUpend ifif ((andSearch is true) and (orSearch is true)) or ((andSearch is true) and (wordSearch is true)) or ((orSearch is true) and (wordSearch is true)) thenanswer "More than one search parameter is selected."exit mouseUpend ifif (andSearch is true) or (orSearch is true) thenask "What is the first search term."if it is empty then exit mouseupput it into firstTermask "What is the second search term?"if it is empty then exit mouseupput it into secondTermput secondTerm && firstTerm into searchTerm -- combine the two for "AND" searchunmark all cardsput empty into totalFoundset the lockScreen to true -- turn off screen updatesset the cursor to busyif (andSearch is true) thenmark cards by finding searchTerm in field "Record" -- find search term and mark cards containing itelse -- perform the "OR" searchmark cards by finding whole firstTerm in field "Record"mark cards by finding whole secondTerm in field "Record"end ifput the number of marked cards into totalFoundif totalFound is 0 thenbeep 2if (andSearch is true) thenanswer "Search terms" && quote & firstTerm & quote && "and" && quote & secondTerm & quote && "not found in the same reference."exit mouseUpelseanswer "Search terms" && quote & firstTerm & quote && "or" && quote & secondTerm & quote && "not found in different references."exit mouseUpend ifend ifend ifif wordSearch is true thenask "Enter search term."if it is empty then exit mouseupput it into stringTermunmark all cardsput empty into totalFoundset the lockScreen to trueset the cursor to busymark cards by finding whole stringTerm in field "Record" -- find search term and mark cards containing itput the number of marked cards into totalFoundif totalFound is 0 then -- if search term not foundbeep 2answer "Search term" && quote & stringTerm & quote && "not found."exit mouseUpend ifend ifif highSearch is true then -- highlight the termsif stringTerm is empty thenrepeat foreverfind whole firstTerm in field "Record" of marked cardsif the result is not empty then exit repeatif the textStyle of the foundChunk is bold then -- check to see if it is back at the beginingexit repeatelseset the textStyle of the foundChunk to bold -- highlight the search termend ifend repeatrepeat foreverfind whole secondTerm in field "Record" of marked cardsif the result is not empty then exit repeatif the textStyle of the foundChunk is bold then -- check to see if it is back at the beginingexit repeatelseset the textStyle of the foundChunk to bold -- highlight the search termend ifend repeatelserepeat forever --find whole stringTerm in bkgnd field "Record"if the result is not empty then exit repeatif the textStyle of the foundChunk is bold thenexit repeatelseset the textStyle of the foundChunk to bold -- highlight the search termend ifend repeatend ifend ifgo to first marked card -- number the marked cardsrepeat until tempNumber = totalFoundadd 1 to tempNumberput tempNumber into field "Marked Card #"go to next marked cardend repeatbeep 2if (wordSearch is true) then answer "The total number of entrys containing" && quote & stringTerm & quote && "is:" && totalfoundif (andSearch is true) then answer "The number of entrys containing" && quote & firstTerm & quote && "and" && quote & secondTerm & quote && "is:" && totalFoundif (orSearch is true) then answer "The number of entrys containing" && quote & firstTerm & quote && "or" && quote & secondTerm & quote && "is:" && totalFoundgo to first marked cardend mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>172</left>
<top>290</top>
<right>237</right>
<bottom>306</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>OR</name>
<script></script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>251</top>
<right>119</right>
<bottom>274</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Return</name>
<script></script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>273</top>
<right>119</right>
<bottom>296</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Tab</name>
<script></script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>19</left>
<top>295</top>
<right>125</right>
<bottom>318</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>User Specified</name>
<script></script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>177</top>
<right>75</right>
<bottom>199</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Print Search</name>
<script>on mouseUpopen report printing with template "Print Biblio"go to first marked cardprint marked cardsclose printingend mouseUp</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>289</left>
<top>321</top>
<right>317</right>
<bottom>340</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>6460</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseUpget field "Stack ID" of previous cardif it is "HELP!!!!" thenvisual effect iris open fastgo to last cardelsevisual effect iris open fastdoMenu "Prev"end ifend mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>316</left>
<top>321</top>
<right>344</right>
<bottom>340</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>6179</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpget field "Stack ID" of next cardif it is "HELP!!!!" thenvisual effect iris open fastgo to card 2elsevisual effect iris open fastdoMenu "Next"end ifend mouseUp</script>
</part>
<part>
<id>37</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>156</left>
<top>231</top>
<right>301</right>
<bottom>249</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Search Parameters</name>
<script></script>
</part>
<part>
<id>38</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>231</top>
<right>148</right>
<bottom>249</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>172</left>
<top>274</top>
<right>237</right>
<bottom>290</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>AND</name>
<script></script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>172</left>
<top>306</top>
<right>271</right>
<bottom>322</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Word/Phrase</name>
<script></script>
</part>
<part>
<id>43</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>362</left>
<top>313</top>
<right>462</right>
<bottom>330</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>371</left>
<top>287</top>
<right>461</right>
<bottom>305</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>45</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>343</left>
<top>251</top>
<right>464</right>
<bottom>269</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>46</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>343</left>
<top>224</top>
<right>463</right>
<bottom>243</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>49</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>144</left>
<top>27</top>
<right>235</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Palatino</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name>Stack ID</name>
<script></script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>295</left>
<top>289</top>
<right>339</right>
<bottom>320</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1011</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpvisual effect stretch from bottom fastGo Homeend mouseUp</script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>298</left>
<top>249</top>
<right>336</right>
<bottom>288</bottom>
</rect>
<style>roundrect</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2507</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUppush cardvisual effect shrink to center fastgo to bkgnd "Help"end mouseUp</script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>74</left>
<top>53</top>
<right>511</right>
<bottom>217</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Record</name>
<script></script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>172</left>
<top>254</top>
<right>274</right>
<bottom>271</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Hilite</name>
<script></script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>200</top>
<right>74</right>
<bottom>222</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>Export Search</name>
<script>on mouseUp exportCards,totalCards,exportFileglobal totalFoundgo to first marked cardask "What will be the name of the export file?"put it into exportFileopen file exportFileset cursor to busyset lockScreen to truerepeat until exportCards = totalFoundwrite "Search result #" & field "Marked Card #" && "out of" && field "Total Marked #Cards" && "total." to file exportFilewrite return to file exportFilewrite field "Record" & return & return to file exportFileadd 1 to exportCardsgo to next marked cardend repeatclose file exportFilebeep 2end mouseUp</script>
</part>
<part>
<id>56</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>12</left>
<top>27</top>
<right>466</right>
<bottom>327</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Shareware</name>
<script>on mouseUphide field "shareware"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>46</id>
<text>Search Result #:</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text> Cards in Stack:</text>
</content>
<content>
<layer>background</layer>
<id>44</id>
<text>Card No:</text>
</content>
<content>
<layer>background</layer>
<id>45</id>
<text># Positive Results:</text>
</content>
<content>
<layer>background</layer>
<id>37</id>
<text>Search Parameters</text>
</content>
<content>
<layer>background</layer>
<id>38</id>
<text>Import Parameters</text>
</content>
<content>
<layer>background</layer>
<id>49</id>
<text>Stack:</text>
</content>
<content>
<layer>background</layer>
<id>56</id>
<text><span class="style5"> </span><span class="style8"> </span><span class="style7">HYPER-REF 1.0</span><span class="style5"> This is a stack that I developed mainly for use in creating a database of journal references downloaded from Medline, though you should be able to adapt it to your own system. Not only is this my first attempt at scripting, but also at programing in general. As a result I'm sure that there are some bugs lurking around. If you find any or have ideas to make the scripts more elegant I would be happy to hear from you. My e-mail address is:</span><span class="style6">ndgarigl@rodan.acs.syr.edu CLICK HERE WHEN DONESHAREWARE: </span><span class="style5">If you do find this stack useful I would appreciate some bucks to help finance my "Mac Periphal Fund". I work part-time, my wife is a graduate student, and we have two kids...... needless to say that doesn't leave much money for Mac goodies. I would also be so grateful that I would probably take a stab at any custom changes you wanted. Send at least $10, along with your name and address to:</span><span class="style6"> Nick Garigliano B14-7 Slocum Heights Syracuse, New York 13210 </span><span class="style5"> </span></text>
</content>
<name>Biblio</name>
<script>on openCardglobal totalFoundget the name of stackdelete first word of itput it into field "Stack ID"put (the number of cards - 1) into field "Total #Cards"put (the number of this card - 1) into field "Card #"get the marked of this cardif it is true thenput the number of marked cards into field "Total Marked #Cards"elseput empty into field "Total Marked #Cards"put empty into field "Marked Card #"end ifend openCard</script>
